Ni=k-r I OW*=|,L 


T M#=iC3 T IvJiC^T I OM O O M !=■ U "T EZ R: OL LIHc 


* 


S1.5 Shady1.anp-Barringt,nn-T] 1 


noi 5V-60010 


MAY 1982 


Her(= wf!^ are again- If you have sent in questions, just hangon, 
we are world ng on answers. If- you wish to contact/be contacted 
by other members, just write us and we will publish your name 
and address, also :i f you have any particular reason to he con- 
tacted, just let us knovj, that w'i 1 1 also be listed. If yovi have 
something to sell, wf? need to put a limit, on them to one item 
per member. Also, since there is alot of computer mail coming 
in to the shop, please label yoi.i envelope "Imagination Computer 
Club" this will help the mail openers to place it in the correct 
bin and not causing a delay in it reaching us, "NICC" will NOT 
help, it must be "Imagination Compi.iter Club". Thank you. 

***************** tttt*t****tif.****$t*********tl(*.'/(t*******t******** 

ANSWERS/TIPS FROM OTHER CL.UB MEMBERS 

$tt***t1i.***t*ii.*it*********til-***********t***t**************t*t**** 
FROM TED HIMES OF k-lRGINIA 

For those of yoi.i who received the premier issue of the 
newsletter and were interested in the poke statement for re- 
moving the bi.<;*::i ng . Mr- Hines has done the following to be 
rid of the hi.r':?ing permanently. A BPST switch from Radio 
Shack was installed in series with one of the speaker leads as 
seen below- If you have any qu.estions, just let i.is know and we 
will publish a request for more information. 


>[ ]— 

BEFORE MOD 


♦opF'* 



AFTER MOD 


Many of you (including Mr- Hines) have expressed a desire to 
place a loan payment calculation on the APF,, if anyone has done 
so, send the program and we will publish it (unless we come up 
wi th one first.) 


PAI3E1 


FROM MTHHAFI E. DAVIS OF ONTO 


For all nf iib who have reqt.ioshpri book®; .'hoi p with the A900 
marhine language, here are a few i i p>r, and rerommendat i on??: 

HrilNG THE ^,800 MTCROPROCEBSOR 


WRITTEN BY ELMER POE publiehod by Howard W. Bam=; ' Co., Inc. 
and 

HOW TO PROORAM AND INTERFACE THE A.0OO 


WRITTEN BY ANDREW C,. STANGAARD, TR. pnh1«ihed by (=5amp> 

Bciurce: F^r i or :l 1- y One Elertronirs 
RIYil Doering Avp^nup 
ChateworF-h,, CA 91311 


Tl'ie tiKst bonk is rather simple. The sorond hook is interpstinn 
and includes machine 1 anguage programs and exercises thaL work 
well r)n the AF'F marhine,, 


ITEMS FOR SALE 

■ t**%*'M**tt**i^ttt ^■iittt**** ******* ******-*if.*if***t*t**'*********t*'t-t*t* 


nUKDDM - You are the ruler o-f a country in the rriiddle ages. You 
miAst lead yniir people tfirough 22 yeers, with wars and famines. 
While doing this, you must kef?p up the population, land and 
q r a i ri . 

FISH ■ The card game of Fish with the rnmputer. First tp get 
rid of all of their cards ,i n hooks wins. 

DIIKDOM FISH - T.10.9S SEND CHECK CR MONEY ORDER 

ORDER FROM! Larry Greenfield (314) 942-787^ 

17300 Santa Clara 
Fountain Valley, CA 927(')9 
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********%* t**t*il(.i(.*%****t*t**i(**i(**1i.***%*if.t%tlf.t*t***t****%***t* 


PROGRAMS FROM OTHER CLUB MEMBERS 


*ilL*t**********t**t*'lf-******1f**t*tt************'*.***1f*t*****'!lf*t**** 


CHECKBOOK 

from Christopher Phillips of CA 

This prorjram maintains yni.ir crheckbooi? balance. I...i nes 1. and 2 
are used to create a screen when saved to tape. When you run 
it the first time., you can enter 0 and then CSAVE the program. 
It will the cload the title page, otherwise you can eliminate 
lines 1,2 3 and 3. Also, thank you Mr. Phillips tor all of 
the compliments to APF- in your letter. Bomeone’s head probably 
doesn^t fit into a do<irway anymore. 


1 FOR 1=1 TO 12: NEXT I; REM CLEAR SCREEN-ALL BREEN 

2 PRINT , "CHECKBOaK" : PRINT s PRINT ; PRINT "BY CHRIS PHILLIPS": PRINT : PRINT 

3 INPUT A: IF A=0 THEN 150: REM INPUT NUMBER TO STTART PROGRAM 
5 CALL 17046: POKE 24578,38; REM CLEAR SCF’;£EN, TURN OFF TAPE 
10 DIM Ait<32); REM USE STRING FOR FORMAT 

12 A*="tt# **###,###.## «$###.###.##" 

IS INPUT "BALANCE", B 

20 INPUT "CHECK", A 

21 B=B As REM SUBTRACT CHECK, ENTER DEPOSITS AS A NEGATIVE AMOUNT 

22 IF A=0 THEN ISO 
25 IF A:0 THEN 60 

30 PRINT USING A*."CK".A,e 
SO eOTO 20 

60 PRINT USING A*.''DP",A,B 
80 GOTO 20 
150 END 


SHAPE TO MUSIC 

from DENNIS PERRY of New Jersey 

This program was written to help clubmembers to understand the 
shape table and color for low graphics. Mr,, Perry added music 
to jasz it up. Mote that were it is stated - 12 sp - the 
hyphens are not included in the program, that is just to tell 
you how many spaces are between the numbers. 
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SHAPE TO MUSIC (continued) 


5 CALL 17046 

10 PRINT "CHOSE SHAPE 1 TO 15 FOR A, INPUT A AND PRESS RETURN" 
20 INPUT "NUMBER 1 TO 15 FOR A=",A 
30 IF A=0 GOTO 20 
40 IF A>15 GOTO 20 
50 SHAPE =»A: CALL 17046 


60 

POKE 745,03s 
POKE 751,04 

POKE 

746, 15i 

POKE 

747, 12i 

POKE 

740,151 

POKE 

749, IBs POKE 750,05 

70 

80 

POKE 753,13s 
FOR 1=0 TO 6 

POKE 

754,21s 

POKE 

755, 19s 

POKE 

756,09s 

POKE 

757,03 


90 IF 1=1 MUSIC "100" 

100 IF 1=2 MUSIC "200" 

no IF 1=3 MUSIC "300" 

120 IF 1=4 MUSIC "400" 

130 IF 1=5 MUSIC "500" 

140 IF I=6M MUSIC "600 — ■ /3 — 70O" 

150 FOR P=1 TO 100s NEXT 

160 COLOR =1 

170 HL I N 1,31-1,1 

180 HLIN 1,31-1,15-1 

190 VLIN I, iS-I. I 

200 VLIN I.lS-1,31-1 

210 NEXT Is MUSIC C"600 - - 500 - - 400 - - 300 -S /3 ' 

200 — I a -sp — 100" ' 

220 GOTO 20 


if.'it.if.if.*1^*t'ii(t*1l.**1l.*t*t%****t**tt1l.**il.******t*tt**t*tt*****tt**tt*** 
NAME 9., ADDRESS 

from GREG LONGFIELD 


Enter the address or names in the -form as shown above. Yo do 
Aot need a printer, when it asks to "position paper and turn 
printer on", just hit return, it will, print on the screen. 
Also, please note the rem statements in 320 and 330 before 
adding any names of your own. 
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NAME ADDRESS (crontinued) 


10 POKE 24578,54: CALL 34061 

20 CALL 17046: POKE 40960,2: POKE 40961,0 

30 N=35000 

40 DIM G*(30) 

50 REM - ENTRY OR NUMBERS TO PRINT 
140 READ N2 

150 PRINT "POSITION PAPER 8< TURN PRINTER ON" 

160 INPUT "PRESS RETURN", G« 

170 FOR 1*1 TO N 
180 READ N1 

190 IF N1=0 THEN 300 

200 FOR J*1 TO N1 

205 Gt=" *3 0 

210 READ G* 

220 PRINT G* 

230 NEXT J 

240 IF N1>=N22 THEN 280 
250 FOR K=N1 TO N2 
260 PRINT 

270 NEXT K 

280 NEXT I 

290 REM TERMINATION 

300 PRINT I-l; "RECORDS WERE PRINTED" 

310 STOP 

320 REM LINE 999 CONTI NS OF LINES FOR PAGE MOVEMENT 

330 REM LINE 1000 AND 1004 CONTAINS THE # OF LINES IN THE ADDRESSES 

999 DATA 2 

1000 DATA 3 

1001 DATA "JOHN DOE" 

1002 DATA "555 SMOKEY DRIVE" 

1003 DATA "GRDVERVILLE, IL 69999" 

1004 DATA 2 

1005 DATA "BOX 515 N CHICAGO STREET" 

1007 DATA "BILL SMITH" 

1008 DATA 0 

t******tt*t*****t*t***tt**t***if*tt***'*.***********'$************** 

FINPIJTERS 

-from RICK CARMAN 


The? following program illustrates how to effectively use 
READ— DATA. Mr. Carman stated that his computer gets fouled 
up on the? spacing if a word in the data statement contains 
a keyword. He therefore invented the words in the program 
to illustrate this. I have changed his program by adding 
the quotation marks. These seemed to spaccT’ the words exactly 
as T had typed the data statements. However, it appe?ars this 
did not help Mr. Carman all of the time- If anyone else has 
this problem, please let us know. 
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FINFUTERS (continued) 


10 DIM A*< 1 ) .B» (70) ,NULL«(70) 

20 READ A*,B* 

30 IF B*-"END" THEN STOP 
40 PRINT B* 

45 A*=NULL« 

47 B*=NULL* 

50 GOTO 20 

60 DATA "THIS IS ABOUT FINPUTERS AND BOGOTONIANS" 

65 DATA "FINPUTERS ARE POPULAR IN BOGOTONIA. " 

70 DATA "BOGOTONIANS LOVE THEIR FINPUTERS." 

75' DATA "BOGOTONIANS GIVE THEIR FINPUTERS NAMES... LIKE EYEMARD. " 
76 DATA "BLISTOM - A BOGOTONIAN HAS A FINPUTER" 

80 DATA , END 


****** t*******t~**t*********ttt*.*if.t*t***************-********** 
STR$ EMULATOR 

from RUSSFI..L LETSDN OF MN 


You may find the ne>:t couple of praqrame useful as subroutines. 
Their usefulness for Mr. tetson :i s In packing and unpacking 
data for disk files.. 


10 

20 

7000 

7050 

7075 

7100 

7110 

7120 

7130 

7140 

7200 

7300 

7400 

7500 

7550 

7600 

7610 

7620 


REM A STR»<N) EMULATOR FOR INTE8ERS UP TO S DIGITS 

DIM Nt(4),NU»(i),X<4)! REM N*=aUTPUT STRING; NU4-MULL STRING 

INPUT N^**^ COUNTS N* ( I ) UP AND X(J) DOWN. T-A POWER OF 10 

I-O 

IF N>9999 THEN J=4sT= 10000: GOTO 7200 
IF N>9<?9 THEN J®3:T=1000: GOTO 7200 
IF N>99 THEN J=2:T=100: GOTO 7200 
IF N>9 THEN J*l:T=10s GOTO 7200 
IF N<10 THEN J=OsX(J)=N! GOTO 7500 
X(J)= INT (N/T>s REM X^DIGIT FOR POSITION J 
N“N-X(J)*T: REM N=REMAINDER FOR NEXT DIGIT 
IF T>*10 THEN T*T/10 

M»(I)= CHR* (X(J>+4B): REM PUT DIGIT INTO N* AT POSITION I 
J=J-1 

IF J<0 THEN 7700 
GOTO 7200 
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BTR$ EHULATOR (continued) 


7700 PRINT N»: REH OR OUTPUT TO HAIN PROBRAN 
7750 N*=NU* 

7800 BOTO 7030 

7601 REM INELEGANT BUT MINE CMN--RUS8EU- LETSCM 4/B2 


VAI. EMULATOR 


10 REM A VAL<A«) EMULATOR GOOD FOR 5-DIQIT NUMBERS (UP TO 99999) 

15 REM ADAPT AND USE AS A SUBROUTINE 

8000 DIM A«(4>,NU«(6>,X(4>: REM A9aINPUT STRING, NU9-NULL STRING 
8100 INPUT A« 

8500 J«0 

8505 FOR 1=0 TO 4:X(I)»0: NEXT I: REM CLEAR X'S 

8507 REM MAIN LOOP TURNS STRING DIGITS INTO NUMBERS 

8508 REM X<1) COUNTS DOWN; A*(J) COUNTS UP; X ( 1 > "NUMERICAL EQUIV. OF DIGIT 
8510 FOR 1= LEN <A*>-1 TO 0 STEP -1 

8520 X(I)= ASC (A«(J))-4B 
8530 J=J+1 

8535 NEXT I 

8536 REM CALCULATE N 

8540 N=10000tX<4>+1000*X (3)+100*X (2) +10*X ( 1 > ♦X (O) 

8550 PRINT N 

8555 A«=NU«: REM CLEAR A« TO NULLS 
8570 GOTO 8100 

8580 REM RUSSELL LETSON 4/82 


iliiftt************************-************************************ 

DICE 

from BERNARD SAMANSKY 
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DICE (continued) 


50 CALL 17056 

60 C= INT <6* RND (1)+1):D= INT (6* RND (1)+1) 
70 W=C+D 

SO COLOR *4: SHAPE =15 
PLOT 3,5 

100 FOR X=3 TO 9 
110 FOR Y=5 TO 11 
120 PLOT X.Y 
130 NEXT X 
140 NEXT Y 

145 COLOR =4: SHAPE =15 

150 PLOT 22,5 

155 FOR X=22 TO 28 

1 60 FOR Y=5 TO 1 1 

165 F-LOT X,Y 

170 NEXT X 

175 NEXT Y 


ISO 

IF 

C=1 

THEN 

COLOR =6; 

SHAPE 

=0; 

PLOT 

6,8 


185 

IF 

D=1 

THEN 

COLOR =6: 

SHAPE 

=0; 

PLOT 

25,8 


190 

IF 

C=2 

THEN 

COLOR =6; 

SHAPE 

=0; 

PLOT 

4,6s 

PLOT 8,10 

195 

IF 

D=2 

THEN 

COLOR =6; 

SHAPE 

=0; 

PLOT 

23,6; 

PLOT 27,10 

200 

IF 

C=3 

THEN 

COLOR =6; 

SHAPE 

=0; 

PLOT 

4,6s 

PLOT 6,8b PLOT 8,10 

205 

IF 

D=3 

THEN 

COLOR =6; 

SHAPE 

=0 2 

PLOT 

23 , 6 : 

PLOT 25,8s PLOT 27,10 

210 

IF 

C=4 

THEN 

COLOR =6: 

SHAPE 

=0; 

PLOT 

4, 6: 

PLOT 8,68 PLOT 4,10s PLOT 8,10 

215 

10 

220 

IF 

D=4 

THEN 

COLOR =6: 

SHAPE 

=0; 

PLOT 

23,6s 

PLOT 27,6: PLOT 23, lOi PLOT 27, 

IF 

C=5 

THEN 

COLOR =6: 

SHAPE 

=0; 

PLOT 

4. 6e 

PLOT B,6f PLOT 6,8s PLOT 4,10s P 

LOT 

e, 10 








225 

IF 

D=5 

THEN 

COLOR =6; 

SHAPE 

=0; 

PLOT 

23, 6r 

PLOT 27,6s PLOT 25,8s PLOT 23,1 

0: PLOT 

27, 10 







230 

IF 

D=6 

THEN 

COLOR =6; 

SHAPE 

=0s 

PLOT 

4.6: 

PLOT 8,6; PLOT 4,8i PLOT 8.Bs PL 

OT 4 

, 10; 

PLOT 8,10 






235 

IF 

D=6 

THEN 

COLOR =6; 

SHAPE 

=0; 

PLOT 

23,6s 

PLOT 27,6; PLOT 23,8; PLOT 27, E 

! PLOT 23,10; PLOT 27,10 






245 

IF 

W=7 

PRINT 

"WINNER! ) 

GOTO 450 



250 

IF 

W=1 1 

PRINT "WINNER f 

! ! " ; GOTO 

450 




255 IF W=2 PRINT "SNAKE EYES, YOU LOSE I ! ! " s GOTO 475 

260 IF W=12 PRINT "BOX CARS, YOU LOSE!'!"? GOTO 475 

265 GOTO 495 

270 CALL 17046 

280 PRINT "POINT IS ".W 

285 A= INT (6X RND (D+DjBa INT (6* RND (I)+l) 

290 D=A+B 

295 COLOR =4s SHAPE =15 
300 PLOT 3,5 


PAGES 


DICE (continued) 


305 

FOR X-3 TO ' 

9 





310 

FOR Y*5 TO 

11 





315 

PLOT X,Y 






320 

NEXT X 






325 

NEXT Y 






330 

COLOR Ra4! ! 

SHAPE = 

15 




335 

PLOT 22,5 






340 

FOR X=22 TO 

28 





345 

FOR Y=5 TO 

1 1 





350 

PLOT X,Y 






355 

NEXT X 






360 

NEXT Y 






365 

IF A«1 THEN 

COLOR 

=6i 

SHAPE »0i 

PLOT 

6.8 

370 

IF B»1 THEN 

COLOR 

-6t 

SHAPE *0i 

PLOT 

25,8 

375 

IF A=2 THEN 

COLOR 

=6! 

SHAPE =0i 

PLOT 

4,6! PLOT 8, 10 

380 

IF B=2 THEN 

COLOR 

=6» 

SHAPE =0j 

PLOT 

23,6: PLOT 27, 10 

385 

IF A=3 THEN 

COLOR 

=6: 

SHAPE =0! 

PLOT 

4,6l PLOT 6,8i PLOT 8,10 

390 

IF 8=3 THEN 

COLOR 

=6: 

SHAPE =0i 

PLOT 

23,6: PLOT 25,8: PLOT 27,10 

400 

IF B=4 THEN 

COLOR 

=6: 

SHAPE =0: 

PLOT 

23,6s PLOT 27,6! PLOT 23,10: PLOT 27. 

405 

IF A=5 THEN 

COLOR 

=6s 

SHAPE =0i 

PLOT 

4,6i PLOT 8,6: PLOT L6,ai PLOT 4,10* 

PLOT 

8. 10 






410 

IF *8=5 THEN 

C COLOR *6! 

SHAPE =0j 

PLOT 23, 6i PLOT 27,6: PLOT 25,8: PLOT 23, 

10: 

PLOT 27,10 






415 

IF A=6 THEN 

COLOR 

=6: 

SHAPE =0i 

PLOT 

4,6: PLOT 8,6* PLOT 4,8| PLOT 8, Si PL 

OT 4 

, lOi PLOT 8, 

10 





420 

IF B=6 THEN 

COLOR 

=6! 

SHAPE =0! 

PLOT 

23,6s PLOT 27,6: PLOT KK23,B: PLOT 23 


,10: PLOT 27.10 

425 IF D=W THEN PRINT "WINNER!!!"! GOTO 450 
430 IF D=»7 THEN PRINT "YOU CRAPPED OUTI!!"i GOTO 475 
435 IF D=ll THEN PRINT "YOU CRAPPED OUT!!!"; GOTO 475 
445 GOTO 495 

450 MUSIC "10305*10 50# 100000"460 GOTO 520 

475 MUSIC "7*615000" 

4B5 GOTO 520 

495 INPUT "NEXT ROLL, TYPE (1) THEN Ki- • .f n 
500 IF Z=1 THEN GOTO 270 

520 INPUT "NEW ROLL, TYPE (5) THEN RETURN*- ,■ 

525 IF F=5 THEN GOTO 50 
2400 PRINT "POINT IS",W 
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THE BUILDING BLOCK 
(BB-1) N^w Iji V»t >* 


MINI-FLOPPY DISK 
DRIVE (D-100) 

Each APF mini-floppy disk 
drive gives you 72,000 bytes of 
additional storage capacity 
plus loading and accessing of 
data within seconds. Industry 
standard mini-floppy connec- 
tions. 


THE IMAGINATION 
MACHINE OM-1) 

Exciting, personal, home com- 
puter for home management, 
entertainment and education 
User-programmable in BASIC 
or uses APF software 
cassette programs. Features 
9K RAM, 14K ROM, 53-key key- 
board, 32 characters x 16 ime 
screen format, alpha numerics 
in up to 8 colors. Builf-m 
sound synthesizer, built in 
tape deck, 2 game-style hand 
held controllers. 


This expansion device lets 
you use your APF imagination 
Machine to its fullest degree. 
Easily plugged into the 
machine and requiring no 
additional power supply, it 
contains four universally 
adaptable ports for peripheral 
drive cartridges. ^ 

For example, a cartridge,"" 
enabling hookup to any stand- 
ard printer or telephone 
modem. Ports can also hold 
cartridges tor 8K RAM 4|«: 
memory and mini-floppy disk 
drive 



PRINTER 


The EPSON MX 


TELEPHONE MODEM 
(TM-150) 

The APF modem 
(modulator/demodulator) 
allows you to hoot; up the 
computer to a remote terminal 
over telephone lines and ac- 
cess time-sharing services or 
trade programs with a com- 
patible computer. 


TM-150 



The MX'80, shown above, is an 
80'Column bidirectional printer featuring the 
full 96'character ASCII set with descenders for 
easier reading, and offers a user-defined choice 
of 40. 66, 80 or 132 columns. 

One of the biggest breakthroughs offered by 
the MX-80 is the world’s first disposable print 
head After its SO-miilion-character life expec- 
tancy, you simply buy a new one for under 
$30 and replace it yourself in seconds. 


ENTERPRIZES (FACTORY - DIRECT RELIABILITY) 

BOX 550, BARRINGTON, ILLINOIS 60010 - Phone 312/382-5244 to order 

/a 


ictaiiai- 




***t*t***t********i(1(*****t***tt*1(****t*************t******1l.***** 


12 HOUR CLOCK 


+rom DEAN MCKITRICK OF W. VIRGINIA 


If time needs to be slowed down or speeded up, change the pause 
loop at line 50 >125 to slow down and < 125 to speed up. 
However change it one at a time. 


5 CALL 17046 
10 POKE 24579,52 
15 INPUT "THE HOUR IS ",E 
20 F= INT <E/10) s£=E-(F»10) 

25 INPUT "THE MIUTES ARE ",C 
30 D= INT (C/10) :C=C-(D»10) 

35 INPUT "THE SECONDS ARE ",A 
40 B= INT <A/10) !A=A-(B*10) 

45 CALL 17046 

50 FOR N=1 TO 125; NEXT N 

55 a=A+1 

60 IF A >9 THEN 70 
65 GOTO 180 
70 A=0 
75 B=B+1 

GO IF B>5 THEN 90 
85 GOTO 180 
90 B=0 
95 C=C+1 

100 IF 09 THEN 110 
105 GOTO 180 

no C=0 

115 D=D+1 

120 IF D>5 THEN 130 
125 GOTO IBO 
130 D=0 
135 E=E+1 

140 IF E>9 THEN 150 
145 GOTO 160 
150 E“0 
155 F=F+1 

160 IF F=1 THEN 175 

165 GOTO 180 

170 B=0;C=0!D=0:E=1:F«0 

175 IF E*3 THEN A=0; B=0; C«0; D=*0i E=1 1 F«0 

180 X-1 : Y=14; 2=X*32+y+512 

185 POKE 40960,2/256 

190 POKE 40961,2- INT <2/256)+256 

195 PRINT F;E! "5 D;C5 '';e|i Aj GOTO 50 
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